home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / f1ocx / vcform1.3 / VB4 / TIMING1 / FOTime2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-15  |  1.9 KB  |  65 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Formula One Timing Project"
  4.    ClientHeight    =   6795
  5.    ClientLeft      =   3960
  6.    ClientTop       =   1800
  7.    ClientWidth     =   5160
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   7260
  18.    Left            =   3870
  19.    LinkTopic       =   "Form2"
  20.    ScaleHeight     =   6795
  21.    ScaleWidth      =   5160
  22.    Top             =   1425
  23.    Width           =   5340
  24.    Begin VB.CommandButton Command2 
  25.       Caption         =   "Print"
  26.       Height          =   375
  27.       Left            =   240
  28.       TabIndex        =   1
  29.       Top             =   6240
  30.       Width           =   1575
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Exit"
  34.       Height          =   375
  35.       Left            =   2040
  36.       TabIndex        =   0
  37.       Top             =   6240
  38.       Width           =   1575
  39.    End
  40.    Begin VCIF1Lib.F1Book ResultSheet 
  41.       Height          =   6075
  42.       Left            =   60
  43.       TabIndex        =   2
  44.       Top             =   60
  45.       Width           =   4995
  46.       _version        =   65536
  47.       _extentx        =   8811
  48.       _extenty        =   10716
  49.       _stockprops     =   96
  50.       borderstyle     =   1
  51.       tablename       =   "F1Book1"
  52.       appname         =   ""
  53.       filename        =   "FOTime2.frx":0000
  54.    End
  55. Attribute VB_Name = "Form2"
  56. Attribute VB_Creatable = False
  57. Attribute VB_Exposed = False
  58. Private Sub Command1_Click()
  59.     Form2.Hide
  60.     Form1.Show
  61. End Sub
  62. Private Sub Command2_Click()
  63. Form2.ResultSheet.FilePrint True
  64. End Sub
  65.